package LocalBeam;

sub new {
	my($this) = [];
	my($classname) = shift;
	my($K) = shift;
	my($k);

	for($k=0;$k<$K;$k++)
	{
		$this->[$k]->[0] = -1000000;
		$this->[$k]->[1] = "-";
	}
	bless $this;
	return $this;
}

1;
